*** Create Figure 6A ***

********************************************************************************
use "${clean}/who_counts_analysis.dta", clear


** show heaping pre / post treatment for 1945-1955 and 1945-1962 **

graph bar, over(YOB, label(angle(45) labsize(tiny))) title("Age Heaping, 1945-1962") note("N=195K")
graph save "${output}/graphs/heaping_treat62.gph", replace
graph export "${output}/graphs/heaping_treat62.png", replace

drop if YOB > 1955
graph bar, over(YOB, label(angle(45) labsize(tiny))) title("Age Heaping, 1945-1955") note("N=111K")
graph save "${output}/graphs/heaping_treat56.gph", replace
graph export "${output}/graphs/heaping_treat56.png", replace

graph combine "${output}/graphs/heaping_treat56.gph" "${output}/graphs/heaping_treat62.gph"
graph save "${output}/graphs/Figure6A.gph", replace
graph export "${output}/graphs/Figure6A.png", replace
